home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 52
/
Amiga Format AFCD52 (Issue 136, May 2000).iso
/
-serious-
/
programming
/
basic
/
mildred
/
mildred.lha
/
lha
/
MildredTests.lha
/
MildredTest2.ascii
< prev
next >
Wrap
Text File
|
1998-11-16
|
1KB
|
59 lines
WBStartup
;Test Mildred
FindScreen 0
Window 0,16,16,500,400,$2|$4|$400,"Test",0,1
WindowOutput 0
InitBank 0,(320*256)+16,$10001
MReservec2pWindows 10
MReserveBitmaps 10
MReserveShapes 10
MAutoCookie On
MAutoStencil On
MAutoUsec2pWindows On
MAutoUseShapes On
MAutoUseBitmaps On
MAutoShapeWrap Off
MAutoBitmapWrap Off
For s=0 To 9
NPrint MCludgeShape(s,64,32,Bank(0))
Next s
For b=0 To 9
NPrint MCludgeBitmap(b,320,256,Bank(0))
Next b
NPrint "Current shape: ",MUsedShape
NPrint "Current bitmap: ",MUsedBitmap
MUseShape 7
MUseBitmap 7
NPrint "Current shape: ",MUsedShape
NPrint "Current bitmap: ",MUsedBitmap
MFreec2pWindows 0,2
MFreeShapes 0,2
MFreeBitmaps 2,4
MBitmapWrap 7,On
MShapeWrap 4,On
MShapeWrap 5,On
MMakeStencils 6,8
MFreeStencils 8,9
NPrint "SBytes: ",NPeekL(MAddrBitmap(7)+32) ; Data
NPrint "Type: ",NPeekB(MAddrBitmap(7)+6) ; Type
NPrint "XWrap: ",NPeekB(MAddrBitmap(7)+38) ; Xwrap
NPrint "YWrap: ",NPeekB(MAddrBitmap(7)+39) ; Ywrap
MMakeCookies 6,8
MFreeCookies 5,6
NPrint "SBytes: ",NPeekL(MAddrShape(4)+32) ; Data
NPrint "Type: ",NPeekB(MAddrShape(4)+6) ; Type
NPrint "XWrap: ",NPeekB(MAddrShape(4)+38) ; Xwrap
NPrint "YWrap: ",NPeekB(MAddrShape(4)+39) ; Ywrap